home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / nohand11.zip / NOHANCHG.PPS < prev    next >
Text File  |  1993-05-18  |  522b  |  20 lines
  1. string name         ; declare the name variable.
  2. string prompt       ; declare the prompt variable.
  3.  
  4. prompt = "@X0A(@X0C@MINLEFT@@X0A min. left) (H)elp, Chat Command"
  5.  
  6. inputstr prompt,name,@X0A,60,mask_ascii(),highascii+lfbefore
  7.  
  8. if (upper(left(name,2)) = "HA") then
  9.    prompt = tokenstr()   ; Call to tokenstr() to destroy any command line paramaters to the handle command.
  10.    kbdstuff "HA"
  11. else
  12.    if (name = "") then
  13.       kbdstuff chr(13)
  14.    else 
  15.       kbdstuff name+tokenstr()
  16.    endif
  17. endif
  18.  
  19. end
  20.